program main
    character(len=20) :: string
    integer :: number
    !open(8,file="FILE8-5.TXT",access="DIRECT",form="FORMATTED",recl=20,pad="NO")
    open(8,file="FILE8-5.TXT",access="DIRECT",form="FORMATTED",recl=20,pad="yes")
    read(8,100,rec=1)number
    read(8,300,rec=2)string
    write(*,*)number,string
100 format(i6)
300 format(a16)
    close(8)
end program
